1 REM RANDOM SCROLLER
3 FORI=0TO26
4 PRINT"[164][175][162][198][195][196][195][198][185][175][164][175][185][198][195][196][195][198][162][175][164][175][162][198][195][196][195][198][162][185][175][164][185][195][196][195][185]";
5 NEXT
10 T=0:B=25:L=0:R=39
20 N=RND(TI):IFN<.5THENGOSUB200
30 T=1024+T*40:T=T/256:POKE835,T:POKE899,T:T=(T-INT(T))*256:POKE831,T:POKE895,T
40 B=1024+B*40:B=(B/256-INT(B/256))*256:POKE846,B:POKE905,B
60 POKE829,L:POKE866,L:POKE921,L
70 POKE857,R:POKE893,R:POKE933,R
80 GOSUB100
90 GOTO10
100 FORI=0TOM:SYS828:NEXT
110 FORI=0TOM:SYS892:NEXT:RETURN
200 T=INT(RND(TI)*12):B=INT(RND(TI)*12+12):M=INT(RND(TI)*100)+1
210 L=INT(RND(TI)*19):R=INT(RND(TI)*19+20):RETURN